home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Business / Calendars / PM Calendar Scripts / 2 cal Mon-Normal < prev    next >
Text File  |  1992-02-18  |  11KB  |  532 lines
  1. —Normal year starting on Monday
  2. new 12
  3. toolbox off
  4. zeropointreset
  5.  
  6. ————————————————————————————————————————————————
  7. —define styles
  8. —define a style for the days of the month
  9. stylebegin “Days”
  10. font “Times”
  11. tabs 7,  (right, 0.3i, “ “) (right, 1.4i, “ “) (right, 2.6i, “ “) (right, 3.8i, “ “) (right, 5i, “ “) (right, 6.2i, “ “) (right, 7.4i, “ “)
  12. size 18
  13. paraspace 0i,  .7i
  14. leading 72
  15. spaceoptions true, 12, topofcaps 120
  16. paraoptions 1, 0, 0, 0, 0, 0, 0 
  17. styleend “Days”
  18.  
  19. —style for the Names of the months
  20. stylebegin “Months”
  21. font “Times”
  22. alignment center
  23. size 60
  24. typestyle bold
  25. leading auto
  26. paraspace 0i,  .55i
  27. spaceoptions true, 12, proportional, 120
  28. paraoptions 1, 0, 1, 0, 1, 0, 0 
  29. styleend “Months”
  30.  
  31. —style for the Week day names
  32. stylebegin “Days of week”
  33. font “Times”
  34. size 12
  35. typestyle bold
  36. typestyle reverse
  37. leading auto
  38. paraspace 0i,  0i
  39. spaceoptions true, 12, proportional, 120
  40. tabs 7,  (center, 0.5i, “ “) (center, 1.6i, “ “) (center, 2.8i, “ “) (center, 4i, “ “) (center, 5.2i, “ “) (center, 6.4i, “ “) (center, 7.6i, “ “)
  41. styleend “Days of week”
  42.  
  43. —style for the days of the previous/next month entries
  44. stylebegin “Small Days”
  45. font “Times”
  46. size 8
  47. leading auto
  48. paraspace 0i,  .45i
  49. spaceoptions true, 7, proportional, 120
  50. paraoptions 1, 0, 0, 0, 0, 0, 0 
  51. tabs 7,  (right, 0.2i, “ “) (right, .4i, “ “) (right, .6i, “ “) (right, .8i, “ “) (right, 1i, “ “) (right, 1.2i, “ “) (right, 1.4i, “ “)
  52. styleend “Small Days”
  53.  
  54. —style for the Names of the months for the previous/next month entries
  55. stylebegin “Small Months”
  56. font “Times”
  57. alignment center
  58. size 12
  59. leading auto
  60. paraspace 0i,  0.05i
  61. spaceoptions true, 12, proportional, 120
  62. paraoptions 1, 0, 0, 0, 1, 0, 0 
  63. styleend “Small Months”
  64.  
  65. —a working, temporary style used to create text in the calendar.  Removed upon completion
  66. stylebegin “temp”
  67. font “Times”
  68. size 4
  69. tabs 7,  (right, 0.125i, “ “) (right, 0.25i, “ “) (right, 0.375i, “ “) (right, 0.5i, “ “) (right, 0.625i, “ “) (right, 0.75i, “ “) (right, 0.875i, “ “)
  70. paraspace 0i,  0i
  71. paraoptions 0, 0, 0, 0, 0, 0, 0 
  72. styleend “temp”
  73.  
  74.  
  75. removestyle “Body text”
  76. removestyle “Caption”
  77. removestyle “Hanging indent”
  78. removestyle “Headline”
  79. removestyle “Subhead 1”
  80. removestyle “Subhead 2”
  81.  
  82. ————————————————————————————————————————————————
  83. —draw Days grid
  84. pageoptions 0 0    — single-sided pages
  85. pagesize 11i 8.5i
  86. pagemargins 2.3i 0.5i 0.5i 0.5i
  87.  
  88. —draw the 2 lines surrounding a ‘day’
  89. page rm
  90. line 9.5i 2i  10.5i 2i
  91. linestyle onepoint
  92. deselect
  93. line 10.5i 2i  10.5i 2.9i
  94. linestyle fourpoint
  95. selectall
  96. copy  
  97. multiplepaste 6 (-1.2i 0i)
  98. selectall
  99. copy
  100. multiplepaste 5 (0i  1i)
  101. deselect
  102.  
  103. —scratch pad lines
  104. line (0.5i  2i)  (2i  2i)
  105. linestyle onepoint
  106. copy
  107. multiplepaste 9  0i,  .3i
  108. deselect
  109.  
  110. —previous month master page items
  111. line (.5i  5.5i)  (2i  5.5i)
  112. linestyle onepoint
  113. deselect
  114. line (2i  5.5i) (2i  6.4i)
  115. linestyle fourpoint
  116.  
  117. —next month master page items
  118. selectextend 2i 5.5i
  119. copy
  120. multiplepaste 1  0i,  1.5i
  121.  
  122. —draw the Day of the Week box
  123. box (2.3i 1.735i) (10.55i 1.953i)
  124. fillstyle solid
  125. deselect
  126.  
  127. —type the Day of the Week names
  128. newstory  2.3i  1.835i
  129. style “Days of week”
  130. textenter “    Sunday    Monday    Tuesday    Wednesday    Thursday    Friday    Saturday”
  131. select 2.5i 1.835i
  132. move lefttop (2.3i 1.75i)
  133.  
  134. ——————————————————————————————————————————
  135. —Type the names of the months and days
  136. —each month must have 6 lines for correct spacing in the previous/next month sections
  137. page 1
  138. pagemargins 2.3i .5i 0.5i 0.3i
  139. newstory 2.3i .5i
  140. autoflow 1    — set autoflow on
  141.  
  142. style “temp”
  143. textenter “January
  144.         1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  145. February
  146.                     1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28
  147. March
  148.                     1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  149. April
  150.     1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30
  151. May
  152.             1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  153. June
  154.                         1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30
  155. July
  156.     1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  157. August
  158.                 1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  159. September
  160.                             1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30
  161. October
  162.         1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  163. November
  164.                     1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30
  165. December
  166.                             1    2    3    4    5    6    7    8    9    10    11    12    13    14    15    16    17    18    19    20    21    22    23    24    25    26    27    28    29    30    31
  167. “
  168. ————————————————————————————————————————————————
  169. —style the text
  170. textcursor -para
  171. style “Days”
  172. textcursor -para
  173. style “Months”
  174. textcursor -para
  175. style “Days”
  176. textcursor -para
  177. style “Months”
  178. textcursor -para
  179. style “Days”
  180. textcursor -para
  181. style “Months”
  182. textcursor -para
  183. style “Days”
  184. textcursor -para
  185. style “Months”
  186. textcursor -para
  187. style “Days”
  188. textcursor -para
  189. style “Months”
  190. textcursor -para
  191. style “Days”
  192. textcursor -para
  193. style “Months”
  194. textcursor -para
  195. style “Days”
  196. textcursor -para
  197. style “Months”
  198. textcursor -para
  199. style “Days”
  200. textcursor -para
  201. style “Months”
  202. textcursor -para
  203. style “Days”
  204. textcursor -para
  205. style “Months”
  206. textcursor -para
  207. style “Days”
  208. textcursor -para
  209. style “Months”
  210. textcursor -para
  211. style “Days”
  212. textcursor -para
  213. style “Months”
  214. textcursor -para
  215. style “Days”
  216. textcursor -para
  217. style “Months”
  218.  
  219. ——————————————————————————————————————————————————
  220. —place the Months and their names
  221. select 3i 3i
  222. move lefttop (2.3i  .5i)
  223. placenext
  224. page 2
  225. place 2.3i  .5i
  226.  
  227. —===================================
  228. —create the previous/next month dates
  229. —copy the January of the following year (use May since they begin on the same day of the week) and paste it into a temporary location. 
  230.  
  231. page 5
  232. select 5i 5i
  233. copy
  234. page 1
  235. newstory -2i  1i
  236. paste
  237. select -2i  1i
  238. move lefttop -2i -5i    —correct placement so shades can be closed later
  239.  
  240. —copy and paste the remaining 12 months of the year
  241. select 5i 5i
  242. textedit
  243. selectall
  244. copy
  245. select -2i -5i
  246. textedit
  247. paste
  248.  
  249. —copy and paste December of the previous year (use June since they begin on the same day of the week)
  250. page 6
  251. select 5i 5i
  252. copy
  253. page 1
  254. select -2i -5i
  255. textedit
  256. paste
  257. selectall
  258. typestyle normal
  259. style “temp”    —temporary style so that all the text will fit into the pasteboard space available.
  260.  
  261. —======================================================
  262. —copy, cut and paste these months into the correct order so that the previous and next month can be displayed for each month.
  263.  
  264. textcursor -story
  265. textselect +para
  266. textenter “December
  267. “    —correct name of month (we pasted in March,  correct to December)
  268.  
  269. textcursor +para
  270. textcursor -char
  271. textenter “    31”    —add a 31st to this month (it is now December)
  272. textcursor +para
  273.  
  274. textselect +para
  275. textselect +para
  276. cut    — january
  277. textcursor +para
  278. textcursor +para
  279. paste
  280.  
  281. textcursor -para
  282. textcursor -para
  283. textselect -para
  284. textselect -para
  285. copy    —February
  286. textcursor +para
  287. textcursor +para
  288. textcursor +para
  289. textcursor +para
  290. paste
  291.  
  292. textcursor -para
  293. textcursor -para
  294. textselect -para
  295. textselect -para
  296. copy    —march
  297. textcursor +para
  298. textcursor +para
  299. textcursor +para
  300. textcursor +para
  301. paste
  302.  
  303. textcursor -para
  304. textcursor -para
  305. textselect -para
  306. textselect -para
  307. copy    —April
  308. textcursor +para
  309. textcursor +para
  310. textcursor +para
  311. textcursor +para
  312. paste
  313.  
  314. textcursor -para
  315. textcursor -para
  316. textselect -para
  317. textselect -para
  318. copy    —may
  319. textcursor +para
  320. textcursor +para
  321. textcursor +para
  322. textcursor +para
  323. paste
  324.  
  325. textcursor -para
  326. textcursor -para
  327. textselect -para
  328. textselect -para
  329. copy    —June
  330. textcursor +para
  331. textcursor +para
  332. textcursor +para
  333. textcursor +para
  334. paste
  335.  
  336. textcursor -para
  337. textcursor -para
  338. textselect -para
  339. textselect -para
  340. copy    —July
  341. textcursor +para
  342. textcursor +para
  343. textcursor +para
  344. textcursor +para
  345. paste
  346.  
  347. textcursor -para
  348. textcursor -para
  349. textselect -para
  350. textselect -para
  351. copy    —august
  352. textcursor +para
  353. textcursor +para
  354. textcursor +para
  355. textcursor +para
  356. paste
  357.  
  358. textcursor -para
  359. textcursor -para
  360. textselect -para
  361. textselect -para
  362. copy    —September
  363. textcursor +para
  364. textcursor +para
  365. textcursor +para
  366. textcursor +para
  367. paste
  368.  
  369. textcursor -para
  370. textcursor -para
  371. textselect -para
  372. textselect -para
  373. copy    —October
  374. textcursor +para
  375. textcursor +para
  376. textcursor +para
  377. textcursor +para
  378. paste
  379.  
  380. textcursor -para
  381. textcursor -para
  382. textselect -para
  383. textselect -para
  384. copy    —November
  385. textcursor +para
  386. textcursor +para
  387. textcursor +para
  388. textcursor +para
  389. paste
  390.  
  391. textselect +para
  392. textenter “January
  393. “    —correct name of month (we pasted in May,  correct to January)
  394.  
  395. ————————————————————————————————————————
  396. —apply the correct style for each paragraph
  397. style “Small Days”
  398. textcursor -para
  399. style “Small Months”
  400. textcursor -para
  401.  
  402. style “Small Days”
  403. textcursor -para
  404. style “Small Months”
  405. textcursor -para
  406.  
  407. style “Small Days”
  408. textcursor -para
  409. style “Small Months”
  410. textcursor -para
  411.  
  412. style “Small Days”
  413. textcursor -para
  414. style “Small Months”
  415. textcursor -para
  416.  
  417. style “Small Days”
  418. textcursor -para
  419. style “Small Months”
  420. textcursor -para
  421.  
  422. style “Small Days”
  423. textcursor -para
  424. style “Small Months”
  425. textcursor -para
  426.  
  427. style “Small Days”
  428. textcursor -para
  429. style “Small Months”
  430. textcursor -para
  431.  
  432. style “Small Days”
  433. textcursor -para
  434. style “Small Months”
  435. textcursor -para
  436.  
  437. style “Small Days”
  438. textcursor -para
  439. style “Small Months”
  440. textcursor -para
  441.  
  442. style “Small Days”
  443. textcursor -para
  444. style “Small Months”
  445. textcursor -para
  446.  
  447. style “Small Days”
  448. textcursor -para
  449. style “Small Months”
  450. textcursor -para
  451.  
  452. style “Small Days”
  453. textcursor -para
  454. style “Small Months”
  455. textcursor -para
  456.  
  457. style “Small Days”
  458. textcursor -para
  459. style “Small Months”
  460. textcursor -para
  461.  
  462. style “Small Days”
  463. textcursor -para
  464. style “Small Months”
  465. textcursor -para
  466.  
  467. style “Small Days”
  468. textcursor -para
  469. style “Small Months”
  470. textcursor -para
  471.  
  472. style “Small Days”
  473. textcursor -para
  474. style “Small Months”
  475. textcursor -para
  476.  
  477. style “Small Days”
  478. textcursor -para
  479. style “Small Months”
  480. textcursor -para
  481.  
  482. style “Small Days”
  483. textcursor -para
  484. style “Small Months”
  485. textcursor -para
  486.  
  487. style “Small Days”
  488. textcursor -para
  489. style “Small Months”
  490. textcursor -para
  491.  
  492. style “Small Days”
  493. textcursor -para
  494. style “Small Months”
  495. textcursor -para
  496.  
  497. style “Small Days”
  498. textcursor -para
  499. style “Small Months”
  500. textcursor -para
  501.  
  502. style “Small Days”
  503. textcursor -para
  504. style “Small Months”
  505. textcursor -para
  506.  
  507. style “Small Days”
  508. textcursor -para
  509. style “Small Months”
  510. textcursor -para
  511.  
  512. style “Small Days”
  513. textcursor -para
  514. style “Small Months”
  515. textcursor -para
  516.  
  517. ————————————————————————————————————————
  518. —place the previous/next month entries 
  519. pagemargins .5i 5.3i 9i 0.5i
  520. select -1i 0i
  521. resize bottom -5i 0 1
  522. —autoflow 1
  523. placenext
  524. place .5i 5.3i
  525.  
  526. ——————————————————————————————————————————————————
  527. —end of routine  — clean-up
  528. removestyle “temp”
  529. page 1
  530. autoflow 0 
  531. pagemargins 2.3i 0.5i 0.5i 0.5i
  532.